home *** CD-ROM | disk | FTP | other *** search
/ SFX on CD ROM / SFX on CD ROM.iso / setup.inf < prev    next >
Encoding:
Text File  |  1993-10-01  |  6.3 KB  |  209 lines
  1.  
  2. SetVariable (TitleName, "Windows Findit")    ; Name of the title
  3.     ;;
  4. SetVariable (TitleMVB, "Innotech")        ; Basename of the MVB file
  5.  
  6.     ;;
  7. SetVariable (TitleSrcDir, "Innotech\")    ; Source subdirectory of the title
  8.  
  9.  
  10. GetCurPath (FinditSrcDir)        ; Source directory of the Findit
  11. SetVariable (FinditSize, 1 000 000)    ; Size of the Findit files that will
  12.                     ;  be copied over (measured in bytes)
  13. SetVariable (FinditDestDir, "C:\SID\")    ; Destination directory for 
  14.                         ;  the Findit.  Set default
  15.                         ;  here.
  16. SetVariable (CDdrive, "E:\")
  17.  
  18.  
  19. WindowTitle (<TitleName> " - Setup for Sound Ideas - Sound Effects Database")
  20.  
  21.  
  22. ; Set the instruction text used in the initial instructions window.
  23. ; Add Help instructions if the file SETUP.HLP exists.
  24. ;
  25. SetVariable (InitialInstructions, 
  26.     "Click on {\b OK} or press {\b Enter} to continue.  "
  27.     "To abort the setup, click on the {\b Exit} button at the "
  28.     "bottom right corner of the screen, or press {\b F3}.  ")
  29.  
  30.  
  31. IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
  32.  
  33.  
  34.     Goto (DisplayInitialMessage)
  35. AddHelpInstructions:
  36.     SetVariable (InitialInstructions, 
  37.         <InitialInstructions> "You can always obtain help by "
  38.         "clicking on the {\b Help} button or pressing {\b F1}.  ")
  39.  
  40.  
  41.  
  42. DisplayInitialMessage:
  43. DisplayMessage (
  44.     "The Setup program will install " <TitleName>  ,
  45.     <InitialInstructions>)
  46.  
  47.  
  48. ; Determine if the Findit has been installed before.
  49. ; If the WIN.INI file contains information on where the Findit directory
  50. ; is located, then make that the default path to install the Findit.
  51. ;
  52. GetFromWinIni (FinditDestDirTemp, 
  53.     "WFINDIT", "Path", "Undefined")
  54.  
  55.  
  56. IfEqualGoto (<FinditDestDirTemp>, "Undefined", PromptFinditDestDir)
  57. SetVariable (FinditDestDir, <FinditDestDirTemp>)
  58.  
  59.  
  60. AskAgain:
  61.  
  62.  
  63.  
  64. PromptFinditDestDir:
  65. PromptPath (FinditDestDir, <FinditDestDir>,
  66.     "Where should Setup install Windows Findit?",
  67.     "Modify the default path if necessary, and then click on {\b OK} or "
  68.     "press {\b Enter} to continue.  ",
  69.     "The path is currently not valid.  You must specify a drive "
  70.     "letter, a colon, a backslash, and a directory from the root of the drive.  ")
  71.  
  72.  
  73. PromptPath(CDdrive, <CDdrive>,
  74.         "Which drive letter is the CDROM drive currently ?",
  75.         "Modify the default drive if necessary, you should specify a drive"
  76.         " letter, a colon, and end in a {\b backslash}. Then click on {\b OK} or "
  77.         " press {\b Enter} to continue. ",
  78.         "The Drive Letter is not valid. You must specify a valid drive"
  79.         " letter, a colon, and end in a backslash. ")
  80.  
  81.  
  82.  
  83. ; Don't allow Findit to be installed in the Windows directory
  84. ;
  85. GetWinPath (WinPath)
  86.  
  87.  
  88. GetWinSystemPath (SystemPath)
  89.  
  90. IfNotEqualGoto (<FinditDestDir>, <WinPath>, CheckSpace)
  91. DisplayMessage (
  92.     "You cannot install the Findit into the Windows directory.  "
  93.     "Please enter another directory.",
  94.     "Click on {\b OK} or press {\b Enter} to enter another directory "
  95.     "for Findit.")
  96. Goto (PromptFinditDestDir)
  97.  
  98.  
  99. ; Check if there is enough space to install the Findit.
  100. ;
  101. CheckSpace:
  102. GetSpaceAvailable (SpaceAvailable, <FinditDestDir>)
  103.  
  104.  
  105. IfLowerGoto (<FinditSize>, <SpaceAvailable>, FinditDestDirOK)
  106.  
  107. AskYesNo (Prompt, "Yes",
  108.     "There may not be enough space or invalid Drive or Path to install "
  109.         "Wfindit Files  "
  110.     "Would you like to enter a new path for the files?  ",
  111.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  112.     "Wfindit files.\par "
  113.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  114.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  115.     "You may wish to exit Setup and make some more space on your hard "
  116.     "disk.  Run Setup again when there is enough space on your hard "
  117.     "disk.  ")
  118. IfEqualGoto (<Prompt>, "Yes", PromptFinditDestDir)
  119.  
  120.  
  121. AskYesNo (Prompt, "Yes",
  122.     "There may not be enough space or invalid Drive or Path to install "
  123.         "Windows FindIt Version 1.  "
  124.     "Would you like to enter a new path for the files?  ",
  125.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for "
  126.     "Windows FindIt files.\par "
  127.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  128.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  129.     "You may wish to exit Setup and make some more space on your hard "
  130.     "disk.  Run Setup again when there is enough space on your hard "
  131.     "disk.  ")
  132. IfEqualGoto (<Prompt>, "Yes", PromptCDdrive)
  133.  
  134. FinditDestDirOK:
  135. AskYesNo (AskAgain, "Yes",
  136.     "Would you like to change anything before proceeding with "
  137.     "the installation?",
  138.     "Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
  139.     "Click on {\b No} or press {\b 'N'} to proceed with installation.")
  140. IfEqualGoto (<AskAgain>, "Yes", AskAgain)
  141.  
  142.  
  143.  
  144. ; Create the tree structure.
  145. ;
  146. MakePath (<FinditDestDir>)
  147.  
  148. ; Copy the files
  149. ;
  150. OpenCopyProgress (
  151.     "Setup is copying the Windows FindIt files.",
  152.     "Please wait while Setup is copying files.")
  153.  
  154.  
  155.  
  156. CopyFile (<CDdrive>"install\wfindit.exe", <FinditDestDir> "wfindit.exe",  252000)
  157. CopyFile (<CDdrive>"install\param5", <FinditDestDir> "param5",  252)
  158. CopyFile (<CDdrive>"install\standard.f0", <FinditDestDir> "standard.f0",  252)
  159. CopyFile (<CDdrive>"install\wfindit.hlp", <FinditDestDir> "wfindit.hlp",  25234)
  160. CloseCopyProgress ()
  161.  
  162.  
  163.  
  164. SetVariable (Continuation, Label1)    
  165. Label1:                    ; Resume execution
  166. OpenProgmanProgress (
  167.     "Setup is adding Program Manager groups.",
  168.     "Please wait while Setup adds {\b Program Manager} groups".)
  169.  
  170. OpenProgmanGroup ("Sound Ideas - Sound Effects CDROM", Delete)    ;; Add the group named after the title
  171.  
  172.  
  173. AddProgmanItem ("Sound Ideas", <FinditDestDir> "wfindit.EXE",
  174.       <FinditDestDir> "wfindit.EXE", 0)
  175.  
  176.  
  177. CloseProgmanProgress ()
  178.  
  179.  
  180.  
  181. TranslateFile(<CDdrive>"install\param6.0", <FinditDestDir>"param6.0", 40, romletter, <CDdrive>)
  182.  
  183.  
  184. AddToWinIni ("SID", "Path", <FinditDestDir>)
  185.  
  186.  
  187.  
  188.  
  189.  
  190. SetVariable (Message, 
  191.     "The Setup program has successfully installed the WFINDIT"
  192.         " program you can start the program by double clicking"
  193.         " on the Icon in the Wfindit program group. %n%n")
  194.  
  195.  
  196.  
  197.  
  198. SetVariable (Message, 
  199.     <Message> "If you have any problems, please contact us as soon "
  200.     "as possible. Our phone no. is  (416)492-3838, INNOTECH."
  201.         " Our technical staff will be delighted to help you!%n%n")
  202.  
  203. DisplayMessage (<Message>, 
  204.     "Click on {\b OK} or press {\b Enter} to return to the "
  205.     "Program Manager.")
  206.  
  207.  
  208.  
  209.